home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr11
/
powerb5.zip
/
MAKE_ID.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-06-01
|
813b
|
35 lines
'Program MAKE_ID.BAS
DECLARE SUB GenID (ID$, Flag%)
START:
INPUT "Enter a 5 digit number: ", ID$
CALL GenID(ID$, Flag%)
IF Flag% = 1 THEN
PRINT "The ID number is: "; ID$
SYSTEM
ELSE
PRINT "Invalid number"
GOTO START
END IF
SUB GenID (ID$, Flag%)
' If ID$ is a 5-digit number, add a
' check digit to make it a valid
' 6-digit ID number and set Flag%
' to 1. If ID$ is not valid, set
' Flag% to 0.
DIM D(5) AS INTEGER
Flag% = 0
IF LEN(ID$) <> 5 THEN EXIT SUB
FOR I% = 1 TO 5
A$ = MID$(ID$, I%, 1)
IF A$ < "0" OR A$ > "9" THEN EXIT SUB
D(I%) = VAL(A$)
NEXT I%
'Calculate last digit from first 5
RESULT% = D(1) + D(2) * 2 + D(3)
RESULT% = RESULT% + D(4) * 2 + D5
RESULT% = RESULT% MOD 10
ID$ = ID$ + CHR$(ASC("0") + RESULT%)
Flag% = 1
END SUB